10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
15 PRINT"[147]                                        [146]";
20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
25 PRINT"                                        [146]":GOSUB710
30 PRINT"               [205]ODULE 13 [146]
35 [141]720
38 [151]53280,0:[151]53281,0:[151]646,7
40 [153]"LOAD                 (null)(null)13 WAIT
42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
44 PRINT"   [201]F YOU MAKE 4 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
46 PRINT"MUST START          OVER AGAIN."
48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
50 GETR$:IFR$<>CHR$(32)THEN50
52 GOSUB600
56 POKE53280,3:POKE53281,15:POKE646,0:POKE53272,21
58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
60 LINE=LINE+1:PRINT"[147] TT13  EXERCISE:"TAB(2)LINE"OF 17"TAB(27)"ERRORS:"Q
62 FOR K=1 TO 17
64 READ E$(K)
66 PRINT" TYPE CORRECTLY, THEN PRESS RETURN[146]"
68 PRINT" ";E$(K)
70 PRINT"[144]"
72 READ F$(K)
74 POKE198,1:POKE631,34:INPUT C$
76 IF C$=F$(K) THEN 90
78 PRINT" **** NOT CORRECT - REPEAT - ERRORS:"G"[144]":GOSUB2050:GOSUB710
80 Q=Q+1:G=G+1
82 IF Q=4 THEN GOSUB 400:RESTORE:G=0:GOTO 56
84 GOTO 74
90 PRINT"[156]              CORRECT![144]":GOSUB2000:GOSUB710:P=P+1
92 IFP=17THEN RESTORE:GOTO 300
94 GOTO60
99 REM DATA FOR EXERCISES
100 DATA" POT PIT POT PIT POT PIT POT PIT","POT PIT POT PIT POT PIT POT PIT"
105 DATA" PAN PAT PAN PAT PAN PAT PAN PAT","PAN PAT PAN PAT PAN PAT PAN PAT"
110 DATA" TAP TOP TAP TOP TAP TOP TAP TOP","TAP TOP TAP TOP TAP TOP TAP TOP"
115 DATA" SOAP SOAP SOAP SOAP SOAP SOAP","SOAP SOAP SOAP SOAP SOAP SOAP"
120 DATA" PENS PEN PENS PEN PENS PEN PENS","PENS PEN PENS PEN PENS PEN PENS"
125 DATA" PAPER PAPER PAPER PAPER PAPER","PAPER PAPER PAPER PAPER PAPER"
130 DATA" PINS PIN PINS PIN PINS PIN PINS","PINS PIN PINS PIN PINS PIN PINS"
135 DATA" KEEP KEPT KEEP KEPT KEEP KEPT","KEEP KEPT KEEP KEPT KEEP KEPT"
140 DATA" PEA PEAT PEA PEAT PEA PEAT PEA","PEA PEAT PEA PEAT PEA PEAT PEA"
145 DATA" SPEND SPENT SPEND SPENT SPEND","SPEND SPENT SPEND SPENT SPEND"
150 DATA" SPICK SPAN SPICK SPAN SPICK SPAN","SPICK SPAN SPICK SPAN SPICK SPAN"
155 DATA" SPEAK SPOKE SPEAK SPOKE SPEAK","SPEAK SPOKE SPEAK SPOKE SPEAK"
160 DATA" PEEK PEEP PEEK PEEP PEEK PEEP","PEEK PEEP PEEK PEEP PEEK PEEP"
165 DATA" SHARP PEOPLE PLEASE POOR PETER.","SHARP PEOPLE PLEASE POOR PETER."
170 DATA" PETER SPINS THE PINK PAPERS.","PETER SPINS THE PINK PAPERS."
175 DATA" HE KEEPS ALL SHARP PINS IN A POT.","HE KEEPS ALL SHARP PINS IN A POT."
180 DATA" SHE SOLD PINK PENS AND PAPER.","SHE SOLD PINK PENS AND PAPER."
298 :
299 REM FINAL INSTRUCTIONS
300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
305 POKE53280,0:POKE53281,0:POKE646,7
310 PRINT"[147]  [212]HIS IS THE END OF MODULE 13.":GOSUB710
315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
317 PRINT"[145]"VAL(TI$)
320 GOSUB720
325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
330 [141]740
335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
340 PRINT"  BEFORE ADVANCING TO MODULE 14."
345 GOSUB730
350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null)
360 GETR$:IFR$<>CHR$(32)THEN360
362 PRINT"[147]  [217]OU HAVE A CHOICE:
364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 14
368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
372 IFR$="R"THEN RESTORE:GOTO10
374 IFR$="M"THEN 386
376 RESTORE
378 PRINT"[147]  [204]OADING MODULE 14
380 [147]"TT14",8
382 [138]
384 [128]
386 [140]
388 [153]"LOAD  (null)ETURNING TO DISK MENU
390 LOAD"MENU",8
392 RUN
394 END
399 :
400 REM START AGAIN
410 POKE53280,0:POKE53281,0:POKE646,10
420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
440 [141]740:[153]"LOAD"
450 [142]
598 :
599 [143] INSTRUCTIONS FOR MODULE
600 [153]"OPENLOAD  (null)ODULE 13 INTRODUCES THE  (null) WAIT KEY.
605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
610 [153]"   DEF   WAITPRINT   WAIT VAL WAITSYS (null)  (null) WAITOPEN      WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT  WAITOPEN   LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
620 [153]"      DEF   WAITPRINT   WAIT LEN WAITSYS      WAITOPEN  (null) WAIT     WAITPRINT . WAITDEF   WAIT
625 PRINT"[155]                 [211][208][193][195][197]      [146]
630 [141]720
635 [153]"OPEN  (null)SE YOUR  : WAIT FINGER TO PRESS THE  (null) WAIT    KEY.
640 PRINT"[159]  [194]E SURE YOUR [208][207][201][206][212][217]  [198] [146] AND  [202] [146]         FINGERS CAN ";
645 PRINT"FIND THEIR [200][207][205][197] KEYS."
660 GOSUB720:PRINT"[154]        [208]RESS  [211][208][193][195][197] [146] TO START[159]"
665 GETR$:IFR$<>CHR$(32)THEN665
670 RETURN
700 REM TIME DELAYS
710 FORT=1TO1000:NEXT:RETURN
720 FORT=1TO2000:NEXT:RETURN
730 FORT=1TO3000:NEXT:RETURN
740 FORT=1TO4000:NEXT:RETURN
750 FORT=1TO5000:NEXT:RETURN
899 REM END OF MODULE FLASH
900 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
905 POKE54272,220:FOR T=15 TO 1 STEP-1
910 POKE54273,T:POKE53281,T
915 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
920 POKE54273,T:POKE53280,T
925 FORT1=1 TO 5:NEXT T1:NEXT T
930 POKE54276,0:POKE54273,0:POKE54272,0
936 RETURN
1998 :
1999 REM <YES> SOUND
2000 S=54272:FORE=STOS+28:POKEE,0:NEXT
2005 POKE54296,15:POKE54277,42:POKE54278,250
2010 POKE54276,23:POKE54273,23:POKE54272,181
2015 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
2020 POKE54296,0:RETURN
2048 :
2049 REM <NO> SOUND
2050 S=54272:FORE=STOS+28:POKEE,0:NEXT
2055 POKE54296,15:POKE54277,18:POKE54278,242
2060 POKE54276,33:POKE54273,4:POKE54272,48
2063 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO800:NEXT
2065 FORE=STOS+28:POKEE,0:NEXT
2070 POKE54276,0:POKE54273,0:POKE54272,0
2075 POKE54296,0:RETURN
2098 :
2099 REM <END OF EXERCISE> SOUND
2100 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
2105 POKE54272,220:FORT=50TO1STEP-1
2110 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO30
2115 POKE54273,T:POKE53280,T
2120 FORT1=1TO5:NEXTT1:NEXTT
2125 POKE54276,0:POKE54273,0:POKE54272,0
2130 TPOKE54296,0:RETURN
2148 :
2149 REM <WHOOPING> SOUND
2150 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
2155 POKE54277,8:POKE54278,255:POKE54276,23
2160 FORZ=1TO3:F1=2
2165 FORY=1TO3:F2=8
2170 POKE54273,F1
2175 FORX=1TO5:POKE54287,F2
2180 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
2185 FORW=1TO10:POKE54287,F2
2190 F2=F2*1.05:NEXT W:NEXT Z:POKE54278,15
2195 POKE54296,0:RETURN
4999 :
5000 REM * IN MEMORY OF RAD JANJIC *                    RIP 87:11:26
5005 :
5010 REM DESIGNED BY W H CUMBERLAND 87:12:21/88:04:22/90:11:03:91:05:10
5020 REM THANKS TO JIM BUTTERFIELD
5025 REM ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS